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SUBROUTINES  FOR  ICL  1 904/C IL  PLOTTER 
PRECIS' 

1.  A Package  of  subroutines  is  offered  for  use  on  the  ICL  1904S  computer,  to 
output  characters  on  paper  tape  which  can  chen  be  used  to  drive  a CIL  Plotter 
via  a tape  reader.  Their  use  in  FORTRAN  and  ALGOL  is  demonstrated.  A means  is 
available  of  using  the  same  tapes  on  plotters  attached  to  PDP  computers. 


INTRODUCTION 


3. 


2.  The  advantage  of  obtaining  graphical  output  from  computer  programs  is  well 
recognised,  and  the  purpose  of  this  note  is  to  describe  a graph  plotting  package 
for  operating  a digital  plotter.  The  programs  described  have  been  developed  on 
AUWE* s ICL  1904S  computer  in  conjunction  with  a CIL  (Computer  Instruments  Ltd.) 
digital  plotter  operating  in  delta  mode  (their  terminology).  The  increment  size 
is  0.1  mm  and  the  plotting  width  is  34  cm. 

3.  It  was  considered  essential  that  the  system  be  simple  to  use  and  yet 

sufficiently  flexible  to  produce  a complex  graph.  This  has  been  achieved  by 
designing  two  types  of  subroutine:  primary  ones  for  moving  the  pen  and  secondary 

ones  which  modify  the  effect  of  the  former.  Graph  plotting  is  possible  by  the 
use  of  the  primary  subroutines  and  these  are  specified  first. 

4.  Since  the  output  is  passed  through  a buffer  (usual  practice),  it  is  neces- 
sary to  use  an  initialising  subroutine  (RESET)  and  a closing  subroutine  (GRAPINl) 
Usually  the  plotter  is  connected  to  a teletype  and  incoming  data  has  to  be 
directed  to  the  teletype,  called  print  mode,  or  to  the  plotter,  called  plot  mode. 
Also  the  pen  may  be  set  in  the  raised  position,  called  pen  up,  or  lowered,  called 
pen  down.  The  mode  and  pen  status  is  checked  automatically  by  the  software. 

INITIAL  CONDITIONS 


5.  Initially  a cartesian  co-ordinate  system  is  assumed,  with  its  origin  at 
the  initial  pen  position,  and  the  x-axis  along  the  paper.  The  co-ordinates 
(x,  y)  are  expressed  in  cms.  Other  initial  conditions  will  be  described  as  the 
subroutines  are  specified. 


PRIMARY  SUBROUTINES 


6.  All  the  subroutines  have  been  written  following  the  FORTRAN  convention. 

This  means  that  all  variables  starting  with  I,J,K,L,M  or  N are  INTEGER  and  the 
rest  are  REAL. 

7.  Each  subroutine  will  be  introduced  by  its  name  and  list  of  fonnal  parameters 
(if  any). 

RESET 


As  described  above  RESET  must  be  called  first  in  order  to  prepare  the  buffer 
area  and  to  preset  the  initial  conditions. 

GRAFINI 


Elnpties  the  current  transfer  buffer,  switches  to  print  mode  and  outputs 
approximately  10  cm  of  blank  tape.  This  subroutine  must  be  called  last. 


The  10  cm  of  blank  tape  gives  an  indication  on  the  paper  tape  so  that  if 
graphs  have  been  drawn  by  means  of  a loop  and  any  graph  is  faulty  it  can  be 
redrawn  or  the  tape  can  be  advanced  to  draw  the  next  graph. 


It  should  be  noted  that  RESET  should  be  re-used  when  GRAFINI  has  been  used. 
MOVE  (X,  Y) 

Raises  the  pen  and  repositions  it  at  the  co-ordinates  X,  Y (initially  as 
defined  in  Paragraph  5)* 


BLANK- NOT  FI 
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DRAW  (X,  Y) 

Lowers  the  pen  and  repositions  it  at  the  co-ordinates  X,  Y. 

LINE  (X,  Y) 

Draws  a dashed  line  to  the  co-ordinates  X,  Y.  The  type  of  line  is  defined 
by  the  following  subroutine. 

LINE  TYPE  (Ml,  SI,  M2,  S2) 

Defines  a dashed  line  by  the  four  real  parameters  which  represent  mark  1, 
space  1,  mark  2,  space  2.  Mark  refers  to  the  distance,  in  cms,  moved  by  the  pen 
when  down,  and  space  is  similar  with  the  pen  up.  This  mark/space  sequence  is 
preserved  between  calls  to  LINE.  Initially  Ml,  SI,  M2,  S2  set  to  1,  1,  1,  1 
when  RESET  is  called. 


PLOT  TEXT  (» st ring*,  N) 


The  first  parameter  is  simply  a text  constant  and  may  be  set  up  in  any  of 
the  usual  ways,  for  example  as  an  array  by  means  of  a DATA  statement  (Reference  l). 
The  direct  method  shown  is  considered  the  most  useful.  N is  the  number  of 
characters  in  the  string,  and  plotting  will  commence  at  the  current  pen  position. 
Initially  the  character  height  is  set  to  0,36  cms.  Appendix  A shows  the  character 
sets  available. 

Special  effects  can  be  obtained  as  follows: 

"nS"  Where  n,  an  unsigned  integer,  causes  n spaces  to  be  plotted. 

"nC"  Causes  n newlines,  with  reference  to  the  first  character  of  the  string, 
and  with  a line  spacing  of  1-§-  times  the  character  height. 

"nB"  Causes  further  characters  to  be  selected  from  set  n (n  = 1 , 2,  3,  4)* 

An  actual  text  constant  can  only  contain  the  usual  64  characters  shown 
in  set  1.  This  technique  allows  any  of  the  other  characters  to  be 
plotted,  for  example  "2B"A  would  cause  the  character  a to  be  plotted  and 
"4B"Z  would  plot  the  character  m. 

"P"  Because  " has  a special  effect,  this  notation  is  used  to  plot  the 
character  ". 


Combinations  of  these  sequences  can  be  used  to  obtain  compound  effects  and 
when  n = 1 it  may  be  omitted,  for  example  "C7S". 

PLOT  NUM  (VAL,  N,  M) 

The  quantity  VAL  is  plotted  with  N digits  before  the  decimal  point  and  M 
after.  Positive  numbers  are  preceded  by  "space"  and  negative  numbers  by  •— * . 

If  N = 0 a floating  point  layout  is  obtained,  and  if  M = 0 an  integer  layout  is 
obtained.  Output  is  always  followed  by  two  spaces.  Initial  conditions  set  the 
character  height  to  0.36  cms. 

PLOT  CH(N) 

Plots  the  single  character  whose  code  number  is  N.  Characters  are  numbered 
in  sequence  0-255  and  the  first  64  (0-63)  are  identical  with  the  1900  internal 
set.  Each  character  (except  249-255)  commences  at  its  lower  left  and  finished 
at  its  lower  right  including  the  correct  inter  character  spacing.  Numbers  249 
to  255  are  plotting  symbols  which  are  centred  at  the  current  pen  position. 
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SECONDARY  SUBROUTINES 

8.  The  following  subroutines  may  be  used  to  extend  the  effect  of  the  preceding 
subroutines.  The  parameters  concerned  are  preset  and  it  is  not  therefore 
essential  to  use  these  subroutines. 

SCALE  (XSCALE,  YSCALE) 

Pen  movements  are  scaled,  not  applicable  to  character  drawing  routines. 
Initially  set  to  1.0, 1.0. 

ORIGIN  (XSHIFT,  YSHIFT) 

The  origin  is  repositioned,  relative  to  the  initial  pen  position  (i.e. 
where  the  pen  was  when  RESET  was  called).  Initially  set  to  0.0, 0.0. 

Together  these  two  subroutines  have  the  effect  that  co-ordinates  X,  Y 
are  actually  plotted  as  X*XSCALEfXSHIFT  and  Y*YSCALE+YSHIFT  cms. 

LIMITS  (XMIN,  XMAX,  YMIN,  YMAX) 

The  pen  is  constrained  to  remain  within  the  box  specified  by  the  parameters, 
relative  to  the  current  co-ordinate  system  (i.e  SCALE  and  ORIGIN  apply). 

Initially  set  to  0,  42.0,  0,  29.8  cms;  A3  size. 

CHAR  SIZE  (S) 

Set  the  character  size  (height  in  cms).  Initially  set  to  0.36. 

ROTATION  (PHI) 

The  co-ordinate  axes  are  rotated  at  an  angle  PHI.  Zero  is  along  the  paper 
(the  initial  x— direction)  and  positive  PHI  is  anti— clockwise.  Initially  set  to 
zero  and  the  units  chosen  to  be  degrees. 
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RADIANS 

Angular  parameters  to  be  expressed  in  radians. 

PRINTER 

Switches  to  print  mode;  the  normal  output  routines  can  then  be  used  to 
print  on  the  teletype.  Switching  to  plot  mode  is  automatic. 

NONRPT 

Alters  the  format  of  the  characters  drawn  by  the  plotting  routines.  RESET 
results  in  curves  being  drawn  in  "SPR"  etc*  This  takes  some  time  on  the  plotter 
and  this  subroutine  causes  straight  lines  to  be  drawn.  This  is  not  too  noticeable 
in  characters  up  to  .5  cm  high. 

REPORT 

This  alters  the  format  of  the  characters  back  to  that  set  in  RESET. 

GRAF3T  (Y) 

This  can  be  used  in  place  of  the  first  call  to  RESET.  It  draws  a dotted  line 
across  the  paper  (to  ensure  that  the  ink  in  the  pen  is  flowing)  then  positions  the 
pen  Y cms  from  the  right  hand  side  of  the  paper  and  sets  the  origin  (see  Para.  5)* 

9*  The  following  routines  are  also  provided; 

AXIS  (XO,  YO,  XI,  Y1 , D,  P) 

Draws  a line  from  XO,  YO  to  XI,  Y1  with  tick  marks  at  interval  D and  perpen- 
dicular height  P. 

LOG AXIS  (XO,  YO,  XI,  Y1 , AN,  P) 

This  subroutine  draws  an  axis  from  XO,  YO  to  XI,  Y1  with  log  scale  of  AN 
cycles  and  tick  marks  of  perpendicular  height  P.  It  operates  only  on  axes 
perpendicular  to  or  parallel  to  the  x— axis  (see  Para.  5)  i*e. 

XO  = XI  or  YO  = Y1. 

CURVE  (F,  XMIN,  XMAX,  TOL) 

Draws  a curve  of  the  function  Y = F(X)  between  XMIN  and  XMAX.  The  function 
F is  a user  provided  function  segment,  and  its  smoothness  is  determined  by  TOL, 
which  is  the  length,  in  cms,  of  the  straight  line  segments  composing  the  curve. 

The  user  is  reminded  that  the  function  F should  be  included  in  an  EXTERNAL 
statement  (see  Reference  l). 

The  subroutine  draws  the  curve  of  a continuous  function  as  a solid  line. 

FIT  (X,  Y,  N,  M,  SI,  S2) 

Fits  a smooth  solid  curve  through  the  N points  X^,  Y^  contained  in  the  arrays 

X,  Y.  If  M is  zero  then  the  initial  and  final  slopes  of  the  curve  will  be 
calculated  by  the  routine.  The  initial  slope  may  be  specified  in  SI  if  M = 1 , 
and  the  final  slope  may  be  specified  in  S2  if  M = 2.  Both  slopes  are  specified 
if  M = 3.  When  X(N)  = X(l)  and  Y(N)  = Y(l)  a closed  curve  is  drawn. 
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CURVE2  (F,  XMIN,  XMAX,  TOL) 

Draws  a dashed— line  (defined  by  LINE  TYPE)  in  a similar  manner  to  CURVE. 

FIT 2 (X,  Y,  N,  M,  31,  32) 

Fits  a smooth  dashed— line  curve  (defined  by  LINE  TYPE)  in  a similar  manner 
to  FIT. 

GRAFERR  (i) 

Since  the  graph  plotting  subroutines  output  by  means  of  a buffer 
(see  Para.  4)  an  error  may  result  in  an  incomplete  buffer  existing  and  the  graph 
drawn  from  the  paper  tape  will  not  terminate  at  the  point  where  the  error  occurred. 

This  subroutine  enables  an  asterisk  to  be  output  at  the  point  in  question 
followed  by  the  text  EXECUTION  ERROR:  I (where  I is  the  error  number  as  given 

in  the  relevant  compiler  manual),  GRAFINI  is  called  and  the  program  halted  after 
writing  the  same  message  to  the  output  monitor. 

The  subroutine  has  to  be  included  in  an  EXTERNAL  statement  (see  Reference  l) 
and  a call  to  FTRAP  (see  References  1 and  3). 

i.e.  EXTERNAL  GRAFERR 


CALL  FTRAP  (GRAFERR) 


PLOT  MONTH  (NB,M,NA,NS) 

Plots  in  text  the  month  whose  numerical  value  is  M.  NE  is  the  number  of 
spaces  to  precede  the  text  and  NA  is  the  number  of  spaces  to  follow  it.  NS  is 

the  set  number  (as  described  in  "riB"  under  PLOT  TEXT).  If  NS=1  the  text  is  in 

upper  case  and  if  NS  1 the  text  is  in  lower  case  with  the  initial  letter  in 
upper  case.  It  should  be  noted  that  attempts  to  write  from  sets  3 and  4 result 
in  the  use  of  set  2 since  Greek  characters  would  be  meaningless. 

PLOT  DATE  (N) 

Plots  the  current  date  in  a foiroat  specified  by  N, 

N = 0 as  eight  characters  e.g.  12/02/67  represents  12  February  1967 

N = 1 with  month  in  upper  case  text  e.g.  12  FEBRUARY  1967 

N > 1 with  month  in  lower  case  as  for  PLOT  MONTH  e.g.  12  February  1967. 

Note:  The  subroutine,  once  it  has  obtained  the  date,  stores  it  for  use 

in  subsequent  calls  to  the  subroutine. 

PLOT  TIME 

Plots  the  current  time  as  eight  characters  e.g.  08/19/59  represnets  eight 
hours  nineteen  minutes  and  fifty— nine  seconds. 
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PLOTTERS  AVAILABLE 

10.  As  mentioned  in  Para.  2,  the  subroutines  given  have  been  written  to  produce 
paper  tapes  which  can  be  used  in  conjunction  with  CIL  Plotters  having  0.1  mm 
increment  size  and  34  cm  plotting  width. 

11.  Pairs  of  characters  on  the  tape  govern  the  number  of  increments  the  plotter 
is  driven  in  the  X and  Y directions  (or  switch  to  plot  mode  or  set  pen  UP  or 
DOWN) . 

12.  With  0.2  mm  incremented  size  plotters  the  pen  will  be  moved  twice  as  far. 
Consequently  three  further  routines  RESET2,  SCALE2  and  GRAFST2,  having  the  same 
effect  as  RESET,  SCALE  and  GRAPST,  are  included  for  such  plotters.  They 
effectively  halve  the  scale  used  by  MOVE,  DRAW  etc. 

13*  Subroutines  GRAPSTL  and  GRAFSTL2  are  included  for  plotters  with  a width  of 
70  cms  (0.1  mm  and  0.2  mm  increments  respectively). 

14.  In  many  applications,  output  from  an  ICL  1900  computer  can  usefully  be 
plotted  remotely  on  a plotter  controlled  by  a free-standing  PDP  minicomputer. 

A program  has  been  written  for  the  PDP  which  enables  it  to  read  the.  paper  tape 
and  plot  the  requisite  graph.  Copies  of  this  program  are  available  from  the 
author. 

USE  OF  SUBROUTINES 

15.  Currently  the  subroutines  are  available  at  AUWE  in  semi— compiled  form  in 
: LI BAA. SUBGR0UFUWE3  to  all  users. 

16.  A file  needs  to  be  assigned  to  TPO  in  ALLCHAR  mode  when  running  the  program 
to  receive  the  output  which  can  then  be  listed  on  the  tape  punch  i.e. 

AS  *TP0,  FI  LEMME( ALLCHAR) 

17«  Sample  programs  are  shown  in  Appendix  B.  The  first  three  give  rise  to  a 
composite  graph  in  Fig.  1.  It  can  be  seen  that  the  first  program,  was  run  on 
22nd  January  1976  (see  DATE  column)  and  the  third  on  11th  March  1976  (see  date 
in  bottom  right  hand  corner).  The  tapes  were  plotted  in  the  order  1,2,3  without 
moving  the  paper  in  the  plotter  between  plots.  The  graph  from  the  fourth  program 
is  given  in  Fig.  2. 

18.  The  characters  shown  in  Appendix  A were  produced  on  the  graph  plotter. 

USE  IN  ALGOL  PROGRAMS 

19.  The  subroutines,  with  the  exceptions  mentioned  in  Paras.  21-23,  can  be  called 
from  programs  written  in  ALGOL. 

20.  They  require  to  be  explicitly  declared  as  ’external*  procedures  (Reference  5) 
remembering  the  convention  for  REAL  and  INTEGER  variables  mentioned  in  Para.  6 
above.  Calls  to  libraries  SUBGR0UPSRA3  and  SUBGR0UPSRF7  are  needed  after  the  call 

• to  SUBGR0UPUWE3  (Reference  4)  remembering  to  include  calls  to  the  relevant  SEMI 

parameters  in  the  call  to  the  compiling  macro.  These  two  subgroups  are  held  in 
: LIB. 


21.  Algol  procedures  cannot  be  used  as  parameters  for  a FORTRAN  procedure 
(Reference  5)  which  precludes  the  use  of  CURVE  and  CURVE2. 
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22.  Because  of  the  different  method  of  handling  strings  of  characters  in  ALGOL, 
PLOTTEXT  above  has  to  be  replaced  by  PLOTTEXTA  with  the  following  ’external1 
call: 

•PROCEDURE’  PLOTTEXTA(STR,N); ’STRING’STR; ’INTEGER’N; ’EXTERNAL* ; 

23.  GRAFERR  is  not  usable  in  ALGOL. 

24.  An  example  of  a program  written  in  ALGOL  is  given  in  Appendix  C and  the 
graph  drawn  in  Pig.  3 showing  the  effect  of  NONRPT  and  the  effectiveness  of 
LIMITS . 
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APPENDIX  A 

To  obtain  N for  presentation  to  PLOTCH  use  the  following  formula 
N = (SET  - 1 ) x 64  + ROW  x 8 + COL 
i.e.  to  get  N for  the  £ in  Set  1 

N = 0 x 64  + 2 x 8 + 4 = 20  (or  octal  24) 
or  to  get  N for  ? in  Set  4 

N = 3 x 64  + 1 x8  + 7 = 207 
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